perm filename FILMED[1,BGB] blob
sn#065580 filedate 1973-10-05 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00004 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 TITLE FED - III FILM FILE EDITOR - BGB - 20 MAY 1973.
C00004 00003 SUBR(DSKIN) DSK FILE INPUT - BGB 6 DEC 72.
C00006 00004 INITIALIZATION.
C00007 ENDMK
C⊗;
TITLE FED - III FILM FILE EDITOR - BGB - 20 MAY 1973.
FLGBGB:0
SUBR(GETFIL)------------------------------------------------------
BEGIN GETFIL;SETUP FILE SPEC FROM TTY LINE - BGB - 10 DEC 72.
DZM FILNAM
DZM EXTION
DZM EXTION+1
DZM PPPN
OUTSTR[ASCIZ/ FILE = /]
LAC 1,[POINT 6,FILNAM,-1]↔LACI 2,6 ;EXPECT 6 CHR FILENAME.
INCHWL↔CAIN 15↔GO[INCHWL↔POP2J] ;EXIT NO SKIP ON CRLF.
AOSA(P) ;SKIP EXIT FILE NAME.
L: INCHWL↔CAIL"a"↔SUBI 40
CAIN"."↔GO[LAC 1,[POINT 6,EXTION,-1]↔LACI 2,3↔GO L]
CAIN"["↔GO[LAC 1,[POINT 6,PPPN,-1] ↔LACI 2,3↔GO L]
CAIN","↔GO[LAC 1,[POINT 6,PPPN,17] ↔LACI 2,3↔GO L]
CAIN"]"↔GO L
CAIN 15↔GO EOL ;END OF THE LINE.
CAIN 12↔GO EOL
CAIG" "↔GO L ;IGNORE GARBAGE.
SOJL 2,L↔SUBI 40↔IDPB 1↔GO L
EOL: INCHWL
SKIPN 1,EXTION↔LAC 1,ARG2↔DAC 1,EXTION
SKIPN FLGBGB↔POP2J
;BGB'S DEFAULT PROJECT SPECIFICATION.
SKIPN 1,PPPN
LAC 1,ARG1
DAC 1,PPPN
POP2J
BEND;12/10/72------------------------------------------------------
FILNAM: 0 ;FILE NAME.
EXTION: 0 ;EXTENSION.
0
PPPN: 0 ;PROJECT-PROGRAMMER.
SUBR(DSKIN); DSK FILE INPUT - BGB 6 DEC 72.
BEGIN DSKIN;------------------------------------------------------
INIT 1,17
SIXBIT/DSK/↔0↔HALT
L1: CALL(GETFIL,[SIXBIT/III/],[SIXBIT/DATBGB/])
GO[RELEASE 1,↔POP0J]
LOOKUP 1,FILNAM↔GO L1
;GET SIZE OF FILE.
LAC PPPN
LAPI BUF-1
DAC DUMARG
IN 1,DUMARG↔JFCL
OUTSTR[ASCIZ" EOF.
"]↔ RELEASE 1,
POP0J
DUMARG: 0
0
BEND DSKIN;20 MAY 1973 BGB----------------------------------------
BUF: BLOCK =3000
;INITIALIZATION.
PDL: BLOCK 100
SA: LAC P,[XWD -100,PDL]
CALL(DSKIN)
LAC BUF+1↔DAC SIZ
LACI BUF+2↔DAC PTR
UPGIOT PTR
GO SA
PTR:0
SIZ:0
END SA